Give set-auto-coding-funciton FILENAME argument.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index ad8bdea817b2f3f74dadcaba09ed222f7ec2ee86..3ca808a60c1da15d9784497568f5a5b289daf363 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -749,7 +749,8 @@ appear on disk when you save the tar-file's buffer."
                (let ((coding
                       (and set-auto-coding-function
                            (save-excursion
-                             (funcall set-auto-coding-function (point-max)))))
+                             (funcall set-auto-coding-function
+                                      name (point-max)))))
                      (multibyte enable-multibyte-characters)
                      (detected (detect-coding-region
                                 1 (min 16384 (point-max)) t)))